home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK2.toast / Development Kits (Disc 2) / ScriptX / Code Samples / autofind / source / mainmenu.sx < prev    next >
Encoding:
Text File  |  1996-05-21  |  4.9 KB  |  182 lines  |  [TEXT/ttxt]
  1. --<<<
  2. -- Class AutofinderMenu
  3. in module Autofinder
  4.  
  5. if NOT (isdefined MenuToggle) do filein theScriptDir name:"menutogl.sx"
  6. if NOT (isdefined RangeCriterion) do filein theScriptDir name:"criteria.sx"
  7.  
  8. class AutofinderMenu (TwoDSpace)
  9. instance variables
  10.     media
  11.     background
  12.     models
  13.     years
  14.     prices
  15.     queryCriteria
  16.     control
  17. end
  18.  
  19. method init self {class AutofinderMenu} #rest args #key media: ->
  20. (
  21.     apply nextMethod self args
  22.     
  23.     self.media := media
  24.     self.queryCriteria := undefined
  25.     self
  26. ) 
  27.  
  28. method afterinit self {class AutofinderMenu} #rest args ->
  29. (
  30.     local media, background
  31.     
  32.     apply nextMethod self args
  33.  
  34.     media := self.media
  35.  
  36.     background := media["Menu Background"] 
  37.  
  38.     append self background
  39.      self.background := background
  40.  
  41.      self.models := makeModelToggles self media
  42.      self.years := makeYearToggles self media
  43.      self.prices := makePriceToggles self media    
  44.  
  45.     local ac := new actuatorController space:self wholespace:true
  46.     self.control := #(ac)
  47. )
  48.  
  49. method leaveScene self {class AutofinderMenu} -> 
  50. (
  51.     for i in self.control do
  52.         i.space := undefined
  53.     emptyout self.control
  54.  
  55.     emptyout self
  56.     makePurgeable self.background
  57.     self.background := self.models := self.years := self.prices := undefined
  58. )
  59.  
  60. method makeModelToggles self {class AutofinderMenu} media ->
  61. (
  62.     local toggles
  63.     
  64.     local model1 := new menuToggle name:"Station Wagon" x:173 y:163 \
  65.         toggledOffBitmap:(new rect x2:154 y2:21) \
  66.         toggledOnBitmap:media["Station Wagon Hilite"] 
  67.     model1.authordata := "Station Wagon"
  68.     local model2 := new menuToggle name:"Sport-Utility" x:331 y:163 \
  69.         toggledOffBitmap:(new rect x2:144 y2:22) \
  70.         toggledOnBitmap:media["Sport Utility Hilite"]
  71.     model2.authordata := "Sport-Utility"
  72.     local model3 := new menuToggle name:"Sports Car" x:172 y:184 \
  73.         toggledOffBitmap:(new rect x2:122 y2:20) \
  74.         toggledOnBitmap:media["Sports Car Hilite"]
  75.     model3.authordata := "Sports Car"
  76.     local model4 := new menuToggle name:"Convertible" x:294 y:184 \
  77.         toggledOffBitmap:(new rect x2:138 y2:21) \
  78.         toggledOnBitmap:media["Convertible Hilite"]
  79.     model4.authordata := "Convertible"
  80.     local model5 := new menuToggle name:"4-Door Sedan" x:175 y:204 \
  81.         toggledOffBitmap:(new rect x2:73 y2:21) \
  82.         toggledOnBitmap:media["4-Door Hilite"]
  83.     model5.authordata := "4-Door Sedan"
  84.     local model6 := new menuToggle name:"2-Door Sedan" x:250 y:205 \
  85.         toggledOffBitmap:(new rect x2:80 y2:21) \
  86.         toggledOnBitmap:media["2-Door Hilite"]
  87.     model6.authordata := "2-Door Sedan"
  88.  
  89.     toggles := #(model1, model2, model3, model4, model5, model6)
  90.  
  91.     for modelToggle in toggles do (prepend self modelToggle)
  92.     
  93.     toggles    
  94. )
  95.  
  96. method makeYearToggles self {class AutofinderMenu} media ->
  97. (
  98.     local toggles
  99.     
  100.     local year1 := new menuToggle name:"1986" x:289 y:265 \
  101.         toggledOffBitmap:(new rect x2:132 y2:20) \
  102.         toggledOnBitmap:media["1986 Hilite"] 
  103.     year1.authordata := (1986 to 1989)
  104.     local year2 := new menuToggle name:"1990" x:289 y:285 \
  105.         toggledOffBitmap:(new rect x2:130 y2:20) \
  106.         toggledOnBitmap:media["1990 Hilite"]
  107.     year2.authordata := (1990 to 1992)
  108.     local year3 := new menuToggle name:"1993" x:288 y:304 \
  109.         toggledOffBitmap:(new rect x2:145 y2:23) \
  110.         toggledOnBitmap:media["1993 Hilite"]
  111.     year3.authordata := (1993 to 2000)
  112.  
  113.     toggles := #(year1, year2, year3)
  114.  
  115.     for yearToggle in toggles do (prepend self yearToggle)
  116.     
  117.     toggles    
  118. )
  119.  
  120. method makePriceToggles self {class AutofinderMenu} media ->
  121. (
  122.     local toggles
  123.     
  124.     local price1 := new menuToggle name:"5K" x:211 y:363 \
  125.         toggledOffBitmap:(new rect x2:125 y2:20) \
  126.         toggledOnBitmap:media["5K Hilite"] 
  127.     price1.authordata := (0 to 5000)
  128.     local price2 := new menuToggle name:"10K" x:209 y:382 \
  129.         toggledOffBitmap:(new rect x2:145 y2:21) \
  130.         toggledOnBitmap:media["10K Hilite"]
  131.     price2.authordata := (5000 to 10000)
  132.     local price3 := new menuToggle name:"15K" x:208 y:403 \
  133.         toggledOffBitmap:(new rect x2:151 y2:22) \
  134.         toggledOnBitmap:media["15K Hilite"]
  135.     price3.authordata := (10000 to 100000)
  136.  
  137.     toggles := #(price1, price2, price3)
  138.  
  139.     for priceToggle in toggles do (prepend self priceToggle)
  140.     
  141.     toggles    
  142. )
  143.  
  144. method getSelectedItems self {class AutofinderMenu} toggleList ->
  145. (
  146.     -- Get the selected toggles, and add return the resulting names
  147.     local selectedItems := chooseAll toggleList (toggle dummy -> \
  148.         (toggle.toggledOn)) undefined
  149.     local selectedItemsNames := (for item in selectedItems collect item.authordata)
  150.     return selectedItemsNames
  151. )
  152.  
  153. method getQueryCriteria self {class AutofinderMenu} ->
  154. (
  155.     local selections, criteria, range
  156.     
  157.     criteria := new KeyedLinkedList
  158.     
  159.     selections := getSelectedItems self self.models
  160.     add criteria @classification selections
  161.  
  162.     selections := getSelectedItems self self.years
  163.     range := new RangeCriterion ranges:selections
  164.     add criteria @year range
  165.  
  166.     selections := getSelectedItems self self.prices
  167.     range := new RangeCriterion ranges:selections
  168.     add criteria @price range
  169.     
  170.     self.queryCriteria := criteria
  171.     
  172.     return criteria
  173. )
  174.  
  175. --method purgeObject self {class AutofinderMenu} ->
  176. --(
  177. --    print "purging"
  178. --)
  179.  
  180. "Compiled mainMenu.sx"
  181. -->>>
  182.